home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / tcl / itcl1_31.z / itcl1_31 / tcldev / itcl-1.3 / tests / VirtualErr.tcl < prev   
Encoding:
Text File  |  1993-09-23  |  694 b   |  20 lines
  1. #
  2. # Test class for [incr Tcl] test suite
  3. # ----------------------------------------------------------------------
  4. #   AUTHOR:  Michael J. McLennan       Phone: (215)770-2842
  5. #            AT&T Bell Laboratories   E-mail: aluxpo!mmc@att.com
  6. #
  7. #     SCCS:  @(#)VirtualErr.tcl    1.1 (7/15/93)
  8. # ----------------------------------------------------------------------
  9. #            Copyright (c) 1993  AT&T  All Rights Reserved
  10. # ======================================================================
  11.  
  12. itcl_class VirtualErr {
  13.     #
  14.     #  The following inherit statement will cause an error,
  15.     #  since it will find the same base class "Foo" inherited
  16.     #  from several places.
  17.     #
  18.     inherit Mongrel Foo BarFoo
  19. }
  20.